home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
90xx
/
9005a.d64
/
f+m speed test
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
817b
|
41 lines
100 REM SPEED TEST DEMO
105 REM
110 PRINT"[147]"(null)(12,5)"F+M MANAGER"
120 PRINT(null)(11,6)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
130 PRINT(null)(13,8)"SPEED TEST"
140 PRINT"BITTE LEGEN SIE EINE LEERE DISKETTE EIN";
150 (null) A$
160 PRINT"[145] "
170 (null)"S:TEST-DATEI,TEST-DATEI+"
180 PRINT(null)(6,10)"ANZAHL DER DATENSAETZE : ";
190 (null) 4,A
200 (null)"I"
210 GOSUB460
220 PRINT(null)(12,13)"> CREATING..."
230 (null)"TEST-DATEI",5,12,10,14,16,18,A
240 GOSUB460
250 :
260 PRINT(null)(12,13)"> WRITING... "
270 PRINT(null)(12,20)"DATENSATZ#"
280 (null)"TEST-DATEI"
290 GOSUB460
300 FORI=1TOA
310 (null)I,1,"RECORD#"+STR$(I)
320 PRINT(null)(22,20)I
330 NEXT
340 PRINT(null)(12,13)" TASTE [146]! [157][157][157]";
350 (null) A$
360 :
370 PRINT(null)(12,13)"> READING... "
380 PRINT(null)(6,20)"FELD-INHALT: ' '"
390 FORI=1TOA
400 (null)I,1,A$
410 PRINT(null)(20,20)A$
420 NEXT
430 (null)
440 GOSUB460
450 END
460 PRINT(null)(0,15)" "
470 PRINT(null)(19-LEN(DS$)/2,15)DS$
480 RETURN